home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / biz / patch / pgs32b71.lha / 3.2Beta7 / Install-Beta7 < prev    next >
Encoding:
Text File  |  1996-09-23  |  13.6 KB  |  309 lines
  1. ;PAGESTREAM 3.2 BETA 7 ONLINE UPDATE PATCH INSTALLATION SCRIPT
  2. ;COPYRIGHT ©1996 SOFTLOGIK PUBLISHING CORPORATION
  3.  
  4. ;WARN WEENIES TO GET LOST
  5. (message "\n\nThis is a pre-release beta version of PageStream 3.2. Stop now if you haven't read the Read.1st! file. Clicking Proceed indicates that you are knowingly installing beta software on your system.")
  6.  
  7. ;QUIT PROGRAMS
  8. (message "\n\nIf PageStream, BME or PageLiner are running now, quit them before continuing.")
  9. (run "avail flush" (safe))
  10.  
  11. ;USE ASSIGNS TO AVOID THE STUPID INSTALLER'S CRASH BUG
  12. (run "CD PageStream3:" (safe))
  13. (run "CD SoftLogik:" (safe))
  14. (run "assign fonts: softlogik:fonts add" (safe))
  15.  
  16. ;CONFIRM CORRECT VERSION IS INSTALLED, SET DESTINATION
  17. (message ("\n\nThis patch will update your PageStream 3.2 beta 6 hard drive installation to 3.2 beta 7.\n\nYour original PageStream3 disks will not be modified by this update.\n\nYou MUST have 3.2 beta 6 installed to use this patch.\n\nYou MUST have a battery-backed clock in your computer to use this version."))
  18. (if (<> (exists "PageStream3:PageStream3") 1)
  19.     (abort "PageStream3 is not in the PageStream3: directory. You must properly install PageStream3.2 beta 6 before applying this update patch.")
  20. )
  21. ;get destination
  22. (set PGSdest (getassign "PageStream3" "a"))
  23. (set SLdest (getassign "SoftLogik" "a"))
  24. (if (OR (= PGSdest "") (= SLdest ""))
  25.     (abort "PageStream3: and/or SoftLogik: are not assigned. You must properly install PageStream 3.2 beta 6 before applying this update patch.")
  26. )
  27. (set PGSsize (getsize "PageStream3:PageStream3"))
  28. (if (<> PGSsize 1450960)
  29.     (abort "You have the wrong version of PageStream installed. Please read the Read.1st! file for instructions.")
  30. )
  31. (set @default-dest PGSdest)
  32.  
  33. ;MAKE REQUIRED DIRECTORIES IF THEY DON'T EXIST
  34. (if (<> (exists "SoftLogik:Engines") 2) (makedir "SoftLogik:Engines" (infos)))
  35. (if (<> (exists "SoftLogik:Libs") 2) (makedir "SoftLogik:Libs" (infos)))
  36. (if (<> (exists "SoftLogik:Printers") 2) (makedir "SoftLogik:Printers" (infos)))
  37. (if (<> (exists "SoftLogik:Filters") 2) (makedir "SoftLogik:Filters" (infos)))
  38. (if (<> (exists "SoftLogik:Effects") 2) (makedir "SoftLogik:Effects" (infos)))
  39. (if (<> (exists "PageStream3:Help") 2) (makedir "PageStream3:Help" (infos)))
  40. (if (<> (exists "PageStream3:Scripts") 2) (makedir "PageStream3:Scripts" (infos)))
  41. (if (<> (exists "PageStream3:Scripts/TextClips") 2) (makedir "PageStream3:Scripts/TextClips" (infos)))
  42. (if (<> (exists "PageStream3:Documents") 2) (makedir "PageStream3:Documents" (infos)))
  43. (if (= (exists "PageStream3:PageStream3.rsrc") 1) (delete "PageStream3:PageStream3.rsrc" (safe)))
  44.  
  45.  
  46. ;COPY THE LHEX PROGRAM TO RAM:
  47. (copyfiles (source "PageStream3Disk1:lhex") (dest "ram:") (nogauge))
  48.  
  49. ;UPDATE FILTERS AND EFFECTS
  50. (working "Installing Updated Filters...")
  51. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x Filters.lha")
  52. (delete "Filters.LHA" (safe))
  53.  
  54. ;UPDATE LIBS
  55. (working "Installing Updated Libraries...")
  56. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Libs x Libs.lha")
  57. (delete "Libs.LHA" (safe))
  58.  
  59. ;UPDATE ENGINES
  60. (working "Installing Updated Engines...")
  61. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x Engines.lha")
  62. (delete "Engines.LHA" (safe))
  63.  
  64. ;UPDATE PRINTERS
  65. (working "Installing Updated Printer Drivers...")
  66. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x Printers.lha")
  67. (delete "Printers.LHA" (safe))
  68.  
  69. ;UPDATE SCRIPTS
  70. (working "Installing Updated Scripts...")
  71. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Scripts x Scripts.lha")
  72. (delete "Scripts.LHA" (safe))
  73.  
  74. ;UPDATE PAGESTREAM3
  75. (working "Patching PageStream to 3.2 Beta 7...\n\nThis will take a while...")
  76. (run "ram:lhex >NIL: <NIL: -qfw=ram: x PGSpatch.LHA")
  77. (delete "PGSpatch.LHA" (safe))
  78. (run "spatch >NIL: <NIL: -oPageStream3:PageStreamNew -pram:PageStream.pch PageStream3:PageStream3")
  79. (if (exists "PageStream3:PageStreamNew")
  80.         (
  81.                 (delete "PageStream3:PageStream3")
  82.                 (rename "PageStream3:PageStreamNew" "PageStream3:PageStream3")
  83.         )
  84.         (abort "The patch to PageStream3 was not successful. Refer to the Read.1st! file for instructions.")
  85. )
  86. (delete "ram:PageStream.pch" (safe))
  87.  
  88. ;PATCH EXTRAS TO LATEST VERSION IF APPLICABLE
  89.  
  90. (run "ram:lhex >NIL: <NIL: -qfw=ram: x Patch.LHA")
  91. (delete "Patch.LHA" (safe))
  92.  
  93. ; PATCH TTF.KEY TO LATEST VERSION
  94. (if (= (exists "SoftLogik:Special/Keys/TTF.key") 1)
  95.     (
  96.         (run "spatch -oram:TTF.font -pram:TTF.pch SoftLogik:Special/Keys/TTF.key")
  97.         (if (= 37284 (getsize "ram:TTF.font"))
  98.             (copyfiles (source "ram:TTF.font") (dest "SoftLogik:Engines"))
  99.             (message "\n\nYour TrueType font engine could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem TTKEY2NEW.")
  100.         )
  101.         (delete "ram:TTF.font" (safe))
  102.     )
  103. )
  104. (delete "ram:TTF.pch" (safe))
  105.  
  106. ; PATCH WWDOC.KEY TO LATEST VERSION
  107. (if (= (exists "SoftLogik:Special/Keys/WWdoc.key") 1)
  108.     (
  109.         (run "spatch -oram:Wordworth.dfilter -pram:WW.pch SoftLogik:Special/Keys/WWdoc.key")
  110.         (if (= 35400 (getsize "ram:Wordworth.dfilter"))
  111.             (copyfiles (source "ram:Wordworth.dfilter") (dest "SoftLogik:Filters"))
  112.             (message "\n\nYour Wordworth document filter could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem WWKEY2NEW.")
  113.         )
  114.         (delete "ram:Wordworth.dfilter" (safe))
  115.     )
  116. )
  117. (delete "ram:WW.pch" (safe))
  118.  
  119. ; PATCH TEXTFX1.KEY TO LATEST VERSION
  120. (if (= (exists "SoftLogik:Special/Keys/TextFX1.key") 1)
  121.     (
  122.         (run "spatch -oram:TextFX.extension -pram:TextFX1.pch SoftLogik:Special/Keys/TextFX1.key")
  123.         (if (= 39508 (getsize "ram:TextFX.extension"))
  124.             (copyfiles (source "ram:TextFX.extension") (dest "SoftLogik:Engines"))
  125.             (message "\n\nYour TextFX1 extension could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem FX1KEY2NEW.")
  126.         )
  127.         (delete "ram:TextFX.extension" (safe))
  128.     )
  129. )
  130. (delete "ram:TextFX1.pch" (safe))
  131.  
  132. ; PATCH TEXTFX2.KEY TO LATEST VERSION
  133. (if (= (exists "SoftLogik:Special/Keys/TextFX2.key") 1)
  134.     (
  135.         (run "spatch -oram:TextFX.extension -pram:TextFX2.pch SoftLogik:Special/Keys/TextFX2.key")
  136.         (if (= 46768 (getsize "ram:TextFX.extension"))
  137.             (copyfiles (source "ram:TextFX.extension") (dest "SoftLogik:Engines"))
  138.             (message "\n\nYour TextFX1 extension could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem FX1KEY2NEW.")
  139.         )
  140.         (delete "ram:TextFX.extension" (safe))
  141.     )
  142. )
  143. (delete "ram:TextFX2 .pch" (safe))
  144.  
  145. ; PATCH JPEG.KEY TO LATEST VERSION
  146. (if (= (exists "SoftLogik:Special/Keys/JPEG.key") 1)
  147.     (
  148.         (run "spatch -oram:JPEG.gfilter -pram:JPEG.pch SoftLogik:Special/Keys/JPEG.key")
  149.         (if (= 95332 (getsize "ram:JPEG.gfilter"))
  150.             (copyfiles (source "ram:JPEG.gfilter") (dest "SoftLogik:Filters"))
  151.             (message "\n\nYour JPEG filter could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem JPKEY2NEW.")
  152.         )
  153.         (delete "ram:JPEG.gfilter" (safe))
  154.     )
  155. )
  156. (delete "ram:JPEG.pch" (safe))
  157.  
  158. ; PATCH GARY.KEY TO LATEST VERSION
  159. (if (= (exists "SoftLogik:Special/Keys/Gary.key") 1)
  160.     (
  161.         (run "spatch -oram:Average.effect -pram:avg.pch SoftLogik:Special/Keys/Gary.key")
  162.         (if (= 5740 (getsize "ram:Average.effect"))
  163.             (copyfiles (source "ram:Average.effect") (dest "SoftLogik:Effects"))
  164.             (message "\n\nYour Average effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWCV.")
  165.         )
  166.         (run "spatch -oram:Median.effect -pram:med.pch SoftLogik:Special/Keys/Gary.key")
  167.         (if (= 6264 (getsize "ram:Median.effect"))
  168.             (copyfiles (source "ram:Median.effect") (dest "SoftLogik:Effects"))
  169.             (message "\n\nYour Median effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWCV.")
  170.         )
  171.         (run "spatch -oram:Maximum.effect -pram:max.pch SoftLogik:Special/Keys/Gary.key")
  172.         (if (= 6268 (getsize "ram:Maximum.effect"))
  173.             (copyfiles (source "ram:Maximum.effect") (dest "SoftLogik:Effects"))
  174.             (message "\n\nYour Maximum effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWCV.")
  175.         )
  176.         (run "spatch -oram:Minimum.effect -pram:min.pch SoftLogik:Special/Keys/Gary.key")
  177.         (if (= 6256 (getsize "ram:Minimum.effect"))
  178.             (copyfiles (source "ram:Minimum.effect") (dest "SoftLogik:Effects"))
  179.             (message "\n\nYour Minimum effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWCV.")
  180.         )
  181.         (run "spatch -oram:Solarize.effect -pram:sol.pch SoftLogik:Special/Keys/Gary.key")
  182.         (if (= 4640 (getsize "ram:Solarize.effect"))
  183.             (copyfiles (source "ram:Solarize.effect") (dest "SoftLogik:Effects"))
  184.             (message "\n\nYour Solarize effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWCV.")
  185.         )
  186.         (run "spatch -oram:Threshold.effect -pram:thr.pch SoftLogik:Special/Keys/Gary.key")
  187.         (if (= 5044 (getsize "ram:Threshold.effect"))
  188.             (copyfiles (source "ram:Threshold.effect") (dest "SoftLogik:Effects"))
  189.             (message "\n\nYour Threshold effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWCV.")
  190.         )
  191.         (run "spatch -oram:HSB.effect -pram:HSB.pch SoftLogik:Special/Keys/Gary.key")
  192.         (if (= 6464 (getsize "ram:HSB.effect"))
  193.             (copyfiles (source "ram:HSB.effect") (dest "SoftLogik:Effects"))
  194.             (message "\n\nYour HSB effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  195.         )
  196.         (run "spatch -oram:Gamma.effect -pram:gam.pch SoftLogik:Special/Keys/Gary.key")
  197.         (if (= 14372 (getsize "ram:Gamma.effect"))
  198.             (copyfiles (source "ram:Gamma.effect") (dest "SoftLogik:Effects"))
  199.             (message "\n\nYour Gamma effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  200.         )
  201.         (run "spatch -oram:Convolve.effect -pram:conv.pch SoftLogik:Special/Keys/Gary.key")
  202.         (if (= 11240 (getsize "ram:Convolve.effect"))
  203.             (copyfiles (source "ram:Convolve.effect") (dest "SoftLogik:Effects"))
  204.             (message "\n\nYour Convolve effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWCV.")
  205.         )
  206.         (run "spatch -oram:Histogram.effect -pram:hist.pch SoftLogik:Special/Keys/Gary.key")
  207.         (if (= 5688 (getsize "ram:Histogram.effect"))
  208.             (copyfiles (source "ram:Histogram.effect") (dest "SoftLogik:Effects"))
  209.             (message "\n\nYour Histogram effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHT.")
  210.         )
  211.     )
  212. )
  213. (delete "ram:Convolve.effect" (safe))
  214. (delete "ram:Histogram.effect" (safe))
  215. (delete "ram:HSB.effect" (safe))
  216. (delete "ram:average.effect" (safe))
  217. (delete "ram:median.effect" (safe))
  218. (delete "ram:maximum.effect" (safe))
  219. (delete "ram:minimum.effect" (safe))
  220. (delete "ram:solarize.effect" (safe))
  221. (delete "ram:threshold.effect" (safe))
  222. (delete "ram:gamma.effect" (safe))
  223. (delete "ram:Conv.pch" (safe))
  224. (delete "ram:Hist.pch" (safe))
  225. (delete "ram:HSB.pch" (safe))
  226. (delete "ram:avg.pch" (safe))
  227. (delete "ram:med.pch" (safe))
  228. (delete "ram:max.pch" (safe))
  229. (delete "ram:min.pch" (safe))
  230. (delete "ram:sol.pch" (safe))
  231. (delete "ram:thr.pch" (safe))
  232. (delete "ram:gam.pch" (safe))
  233.  
  234.  
  235. (message "\n\nPlease take the time to read the ReadMe.Now file before using this version. Many of the included scripts will not work in this beta due to a change in script commands. They will be updated for the final version. Sorry for the inconvenience.")
  236.  
  237. ;DISPLAY README (Try 3 different ways!)
  238. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x Read.LHA")
  239. (delete "Read.LHA" (safe))
  240. (IF (> (run "Sys:Utilities/MultiView PageStream3:ReadMe.Now") 0)
  241.         (IF (> (run "Sys:Utilities/AmigaGuide PageStream3:ReadMe.Now") 0)
  242.                 (run "More PageStream3:ReadMe.Now")
  243.         )
  244. )
  245.  
  246. ;REMOVE THE LHEX PROGRAM
  247. (delete "ram:lhex" (safe))
  248. (delete "spatch" (safe))
  249. (delete "Install-Beta7.info" (safe))
  250.  
  251. ;DONE
  252. (exit "Finished Installation")
  253.  
  254.  
  255. ;VERSION NUMBERS
  256. ;3.0h
  257. ;ttf.font                   36704 1.0
  258. ;wordworth.dfilter          33256 1.0
  259.  
  260. ;3.0h2
  261. ;wordworth.dfilter          34760 1.0a
  262. ;jpeg.gfilter               81768 1.0
  263. ;textfx.extension           27368 1.0
  264. ;convolve.effect            10804 1.0
  265. ;histogram.effect            5152 1.0
  266.  
  267. ;3.0i
  268. ;TTF.font                   37176 1.1
  269. ;wordworth.dfilter          34732 1.0b
  270. ;jpeg.gfilter               81916 1.0a
  271. ;textfx.extension           32456 1.0a American
  272. ;textfx_d.extension         32468 1.0a Deutch
  273. ;convolve.effect            11108 1.0a
  274. ;histogram.effect            5444 1.0a
  275. ;hsb.effect                  6020 1.0
  276.  
  277. ;3.1b5 (3.1pr)
  278. ;ttf_db.font               121480 1.2 debug
  279. ;ttf.font                   37284 1.2
  280. ;wordworth.dfilter          35252 1.0c beta 3
  281. ;JPEG_d.gfilter             95272 1.0b Deutch
  282. ;jpeg_e.gfilter             95272 1.0b American Old
  283. ;JPEG.gfilter               95360 1.0b American New
  284. ;textfx.extension           32880 1.0b beta 3
  285. ;textfx.extension           47144 2.0
  286. ;convolve.effect            11268 1.0b
  287. ;histogram.effect            5624 1.0b
  288. ;hsb.effect                  6432 1.0a
  289.  
  290. ;3.2b6
  291. ;wordworth.dfilter          35400 1.0c beta 6
  292. ;JPEG.gfilter               95332 1.0c beta 2
  293. ;textfx.extension           39508 1.0c
  294. ;textfx.extension           39552 2.0a
  295. ;average.effect              5740 1.0a beta 2
  296. ;median.effect               6264 1.0a beta 2
  297. ;maximum.effect              6268 1.0a beta 2
  298. ;minimum.effect              6256 1.0a beta 2
  299. ;solarize.effect             4640 1.0a beta 2
  300. ;threshold.effect            5044 1.0a beta 2
  301. ;hsb.effect                  6464 1.0b beta 2
  302. ;gamma.effect               14372 1.0a beta 2
  303. ;histogram.effect            5688 1.0c beta 2
  304. ;convolve.effect            11240 1.0c beta 2
  305.  
  306. ;3.2b7
  307. ;textfx.extension           46768 2.0b
  308.  
  309.